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DIRECTORY 

CommandDefs: FROM "commanddef s" USING [CommandName, ErrorCode, FTPCode, ICode, IDCode, SignalCode] ; 

CommandTabDefs: DEFINITIONS « 

BEGIN 

DSRptr: TYPE ■ POINTER TO CompStrRecord; 

CompStrDesc: TYPE » RECORD [ 
offset, length: CARDINAL]; 

CompStrRecord: TYPE » RECORD [ 
relativebase: CARDINAL, 

CommandStrings: ARRAY CommandDef s. CommandName OF CompStrDesc, 
ErrorMessages: ARRAY CommandDefs .ErrorCode OF CompStrDesc, 
SignalMessages: ARRAY CommandDef s .SignalCode OF CompStrDesc, 
IDStrings: ARRAY CommandDef s . IDCode OF CompStrDesc, 
FTPMessages: ARRAY CommandDef s . FTPCode OF CompStrDesc, 
InterpretMessages: ARRAY CommandDef s .ICode OF CompStrDesc]; 
END ... 


